!ASTERIOD DELUX - GENERATE POKEY TONES

SETUP
   TRAP ACTIVE FORCE LINE NO

PROGRAM 0  
   DPY-POKEY #1 4-CHANNELS
   STOP
   DPY-1 CHAN 1
   WRITE @ 100F = 00
   WRITE @ 100F = 03
   WRITE @ 1000 = 55
   WRITE @ 1001 = AF
   STOP

   DPY-1 CHAN 2
   WRITE @ 1001 = 00
   WRITE @ 1002 = 45
   WRITE @ 1003 = AF
   STOP
   
   DPY-1 CHAN 3
   WRITE @ 1003 = 00
   WRITE @ 1004 = 35
   WRITE @ 1005 = AF
   STOP
   
   DPY-1 CHAN 4
   WRITE @ 1005 = 00
   WRITE @ 1006 = 25
   WRITE @ 1007 = AF
   STOP
   WRITE @ 1007 = 00
   STOP

   DPY-POKEY #2 4-CHANNELS
   STOP
   DPY-2 CHAN 1
   WRITE @ 140F = 00
   WRITE @ 140F = 03
   WRITE @ 1400 = 55
   WRITE @ 1401 = AF
   STOP

   DPY-2 CHAN 2
   WRITE @ 1401 = 00
   WRITE @ 1402 = 45
   WRITE @ 1403 = AF
   STOP
   
   DPY-2 CHAN 3
   WRITE @ 1403 = 00
   WRITE @ 1404 = 35
   WRITE @ 1405 = AF
   STOP
   
   DPY-2 CHAN 4
   WRITE @ 1405 = 00
   WRITE @ 1406 = 25
   WRITE @ 1407 = AF
   STOP
   WRITE @ 1407 = 00
   STOP

